
********************************************************************************
**#	TABLE 5: ISS Treatment and Shareholder Engagement
********************************************************************************

*Set file path
capture cd "C:\Users\austin.starkweather\Dropbox\Research\CD&A Disclosure\Analysis"
capture cd "C:\Users\joshw\Dropbox\CD&A Disclosure\Analysis"
use "Data\Temp\cda_n426_final.dta", clear

********************************************************************************
*Panel A - Summary Stats
********************************************************************************
tabstat shareldr_d_p1 shareldr_count_p1 engage_ref_sop_p1 engage_table_p1 engage_contacted_pct0_p1 engage_contacted_pct_p1 engage_spoken_pct0_p1 engage_spoken_pct_p1, stat(mean p50 sd n) col(stat)long by(iss_treat)
ttest shareldr_d_p1, by(iss_treat)
ttest shareldr_count_p1, by(iss_treat)
ttest engage_ref_sop_p1, by(iss_treat)
ttest engage_table_p1, by(iss_treat)
ttest engage_contacted_pct0_p1, by(iss_treat)
ttest engage_contacted_pct_p1, by(iss_treat)
ttest engage_spoken_pct0_p1, by(iss_treat)
ttest engage_spoken_pct_p1, by(iss_treat)

********************************************************************************
*Panel B - Reported
********************************************************************************
est clear
local controls size_w mtb_w roa_w lev_w abn_ret_1yr ln_analyst io_pct0 issrecno td_cboard_hc comp_committee_tenure_ave dualclass dirvote_for_iss
eststo: xi: reghdfe shareldr_d_p1 			 iss_treat `controls', absorb(fyear sic1)
eststo: xi: ppmlhdfe shareldr_count_p1       iss_treat `controls', absorb(fyear sic1)
eststo: xi: reghdfe engage_ref_sop_p1        iss_treat `controls', absorb(fyear sic1)
eststo: xi: reghdfe engage_table_p1          iss_treat `controls', absorb(fyear sic1)
eststo: xi: reghdfe engage_contacted_pct0_p1 iss_treat `controls', absorb(fyear sic1) 
eststo: xi: reghdfe engage_spoken_pct0_p1    iss_treat `controls', absorb(fyear sic1)
esttab using "Output\Final\T5_engage_ATE.csv", b(3) ar2 pr2 title("Regressions of shareholder engagement") varwidth(25) order(iss_treat size_w mtb_w roa_w lev_w abn_ret_1yr issrecno ln_analyst io_pct0 td_cboard_hc dualclass comp_committee_tenure_ave dirvote_for_iss) star(* 0.10 ** 0.05  *** 0.01 ) replace
